10 REM ************************************************
20 REM *                                              *
30 REM *   PROGRAMM ZUM UMWANDELN VON ZAHLEN IN DIE   *
40 REM *   C 64-FORMATE   MFLPT  (AB $6000)           *
50 REM *                   FLPT  (AB $6010)           *
60 REM *                                              *
70 REM *       HEIMO PONNATH  HAMBURG  1986           *
80 REM *                                              *
90 REM ************************************************
100 REM
110 PRINTCHR$(147)"IST DER SMON AB $C000 SCHON EINGELADEN  (J/N)";:INPUTA$
120 IF A$<>"J" THEN PRINT"WUENSCHE GUTEN ABSTURZ...ODER SMON LADEN!":END
130 FOR I=0 TO 17:REM EINLESEN DES MASCHINENPROGRAMMES
140 READ D:POKE 828+I,D
150 NEXT I
160 REM -------- DAS MASCHINENPROGRAMM ------------
170 DATA 162,000    :REM LDX #$00     ;LSB ZIELADRESSE
180 DATA 160,096    :REM LDY #$60     ;MSB    -"-
190 [131] 032,212,187:[143] JSR $BBD4    ;FAC -> (X/Y)
200 [131] 162,006    :[143] LDX #$06     ;ZAEHLER EINRICHTEN
210 [131] 181,096    :[143] LDA $60,X    ;FAC AUSLESEN
220 [131] 157,015,096:[143] STA $600F,X  ;UND UEBERTRAGEN
230 [131] 202        :[143] DEX          ;ZAEHLER -1
240 [131] 208,248    :[143] BNE $033D    ;WEITER BIS FAC UEBERTRAGEN IST
250 [131] 096        :[143] RTS          ;ZURUECK INS BASICPROGRAMM
260 [143]
270 [143] -------- USR-VEKTOR AUF $828 RICHTEN -----
280 [143]
290 [151] 785,60 :[143] LSB DES USR-VEKTORS
300 [151] 786,3  :[143] MSB DESSELBEN
310 [143]
320 [143] -------- EINGABEN UND USR-AUFRUF ----------
330 [143]
340 [153] [199](147):[133]"ZAHL EINGEBEN";A
350 B[178][183](A):[143] B IST NUR EIN DUMMY
360 [143]
370 [143] ----- PROGR.DIREKTMODUS : MONITORAUFRUF -----
380 [153][199](147)[199](17)
390 [153]"SYS49152"[199](17)[199](17)[199](17)[199](17)
400 [153]" M 6000 6001"[199](17):[143] HIER LIEGT DIE ZAHL IM MFLPT-FORMAT
410 [153]" M 6010 6011"[199](17):[143] UND HIER IM FLPT-FORMAT
420 [153]" X"[199](17)
430 [153]"RUN490"
440 [153][199](19);
450 [151]631,13
460 [151]198,1:[128]
470 [143] ---------------------------------------------
480 [143]
490 [153]:[153]"AB $6000 MFLPT-FORMAT"
500 [153]"AB $6010 FLPT-FORMAT"
510 [153]:[133]"WEITERE ZAHLEN (J/N)";A$
520 [139] A$[178]"J" [167] 340
530 [151] 785,72:[151] 786,178:[143] USR-VEKTOR AUF NORMALWERT
540 [128]